How to calculate the idle time of user in Microsoft Access..

This article explains how to calculate the idle time of user in Microsoft Access. This article demonstrate the how to detect idle time using procedure on Microsoft Access form.

To calculate the idle time firstly we have to insert blank form from Access Ribbon. Then we have to set the form property "time interval =1000" and on the "On Timer" event we have write the procedure as shown in Fig 1.1.

Then we have to write the macro action "open Form" window mode to hidden and other arguments also as shown in Fig 1.2.

Now open the Access Form in Form view. To test the inactivity, does nothing on Access Form. After one minute you will see a message will pop up with time as shown in Fig 1.3.

VBA CODE

Option Compare Database
Sub IdleTimeDetected(exmin)
Dim Msg As String
Msg = "USER INACTIVE TIME:"
Msg = Msg & exmin & "minute(s)!"
MsgBox Msg, 50
End Sub
Sub Form_Timer()

Const IDLEMINUTES = 1
Dim precontrol As String
Dim prevform As String
Dim extime
Dim Currentform As String
Dim currentcontrol As String
Dim exmin

On Error Resume Next
Currentform = Screen.ActiveForm.Name
currentcontrol = Screen.ActiveControl.Name
If Err Then
currentcontrol = "Not active"
Err = 0
End If
If (precontrol = "") Or (prevform = "") Or (Currentform <> prevform) Or (currentcontrol <> precontrol) Then
precontrol = currentcontrol
prevform = Currentform
extime = 0
Else
extime = extime + Me.TimerInterval
End If
exmin = (extime / 1000) / 60
Do While exmin >= IDLEMINUTES
extime = 0
IdleTimeDetected exmin
Loop
End Sub